home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Desktop Improver / DArc V1.5 / Installer-Skript < prev    next >
Text File  |  1996-09-26  |  6KB  |  223 lines
  1. (set lib "libs/reqtools.library")
  2.  
  3. (if (= "deutsch" @language)
  4. (
  5.     (set default_lang 1)
  6.     (set #welcome "\nDieses Skript installiert DArc und alle dazugehörigen Dateien auf Ihrer Festplatte. \n\nDArc © 1995 by Frank Weber und Holger Kasten.")
  7.     (set #destprompt "Bitte Zielverzeichnis wählen.\n(Ein Verzeichnis 'DArc' wird dort erstellt.)")
  8.     (set #desthelp "Sie müssen hier das Verzeichnis wählen,\nin dem die 'DArc'-Schublade erstellt werden soll.\n\n In diese Schublade werden dann|DArc und alle dazugehörigen Dateien\nkopiert.")
  9.     (set #overwritemsg "\nDArc wurde bereits in dieses Verzeichnis installiert.\n\nAltes DArc-Verzeichnis löschen ???")
  10.     (set #overwritehelp "\nIn dem Verzeichnis, das Sie ausgewählt haben, existiert bereits ein Verzeichnis mit dem Namen 'DArc'.\n\nAntworten Sie 'Ja', wenn Sie das alte Verzeichnis komplett löschen möchten, bevor diese Version installiert wird.")
  11.     (set #copyreqtools "\nReqtools.library kopieren...")
  12.     (set #chooselang "\nWelche Sprachen sollen installiert werden ???")
  13.     (set #chooselang-help "\nWenn Sie DArc in verschiedenen Sprachen benutzen möchten, müssen Sie die Catalog-Dateien installieren. Wählen Sie aus, welche Cataloge Sie installieren wollen")
  14. )
  15. (
  16.     (set default_lang 2)
  17.     (set #welcome "\nThis script will install DArc and all supported files onto your Harddisk.\n\nDArc © 1995 by Frank Weber and Holger Kasten.")
  18.     (set #destprompt "Please choose destination path.\n(A drawer called 'DArc' will be created there.)")
  19.     (set #desthelp "Here you have to choose where the\n'DArc' drawer should be created.\n\nDArc and all supported files will\nbe copied into the 'DArc' directory.")
  20.     (set #overwritemsg "\nDArc has already been installed into this directory.\n\nDelete old directory ???")
  21.     (set #overwritehelp "\nThere is already a directory called 'DArc' in the directory chosen by you.\n\nSelect yes if you want the whole directory to be deleted before this version is installed.")
  22.     (set #copyreqtools "\nInstalling reqtools.library")
  23.     (set #chooselang "\nWhich language do you want to have installed ???")
  24.     (set #chooselang-help "\nIf you want to use DArc in different languages, the catalog files must be installed. Please choose which catalogs you want to be installed.")
  25. ))
  26. (set @nohelp " ")
  27.  
  28. (message #welcome)
  29.  
  30. (set default-dir "SYS:")
  31. (set @default-dest "SYS:")
  32.  
  33. (complete 10)
  34.  
  35. (set @dest (askdir (prompt #destprompt)
  36.                    (help #desthelp)
  37.                    (default @default-dest)
  38.            )
  39. )
  40.  
  41. (set @darcdrawer (tackon @dest "DArc"))
  42. (set @default-dest @darcdrawer)
  43.  
  44. (complete 20)
  45.  
  46. (if (exists @darcdrawer)
  47. (
  48.   (if (> @user-level 1)
  49.   (
  50.     (set overwrite (askbool
  51.                            (prompt #overwritemsg)
  52.                            (help #overwritehelp)
  53.                            (default 0)
  54.                    )
  55.     )
  56.     (if (= 1 overwrite)
  57.       (run (cat "c:delete QUIET ALL " @darcdrawer))
  58.     )
  59.   ))
  60. ))
  61.  
  62. (makedir @darcdrawer(infos))
  63.  
  64. (complete 30)
  65.  
  66. (copyfiles  (source "DArc")
  67.             (dest @darcdrawer)
  68.             (infos)
  69. )
  70.  
  71. (complete 40)
  72.  
  73. (copyfiles  (source "Anleitung")
  74.             (dest @darcdrawer)
  75.             (infos)
  76. )
  77.  
  78. (complete 50)
  79.  
  80. (copyfiles  (source "Manual")
  81.             (dest @darcdrawer)
  82.             (infos)
  83. )
  84. (if (= default_lang 1)
  85.     (tooltype (dest (tackon @darcdrawer "DArc"))
  86.               (settooltype "DOC" "Anleitung")
  87.     )
  88.     (tooltype (dest (tackon @darcdrawer "DArc"))
  89.               (settooltype "DOC" "Manual")
  90.     )
  91. )
  92.  
  93. (complete 60)
  94.  
  95. (copyfiles  (source "Readme")
  96.             (dest @darcdrawer)
  97.             (infos)
  98. )
  99.  
  100. (copyfiles  (source "Liesmich")
  101.             (dest @darcdrawer)
  102.             (infos)
  103. )
  104.  
  105. (copyfiles  (source "DArc-Filetypes")
  106.             (dest "S:")
  107. )
  108.  
  109.  
  110. (complete 65)
  111.  
  112. (copylib    (prompt #copyreqtools)
  113.             (help @nohelp)
  114.             (source lib)
  115.             (dest "LIBS:")
  116.             (confirm)
  117. )
  118.  
  119. (complete 75)
  120.  
  121. (if (> (/ (getversion) 65536) 37)
  122.     (tooltype (dest (tackon @darcdrawer "Anleitung"))
  123.               (setdefaulttool "sys:utilities/MultiView")
  124.     )
  125.  
  126.     (tooltype (dest (tackon @darcdrawer "Anleitung"))
  127.               (setdefaulttool "sys:utilities/AmigaGuide")
  128.     )
  129.  
  130. )
  131.  
  132. (if (> (/ (getversion) 65536) 37)
  133.     (tooltype (dest (tackon @darcdrawer "Manual"))
  134.               (setdefaulttool "sys:utilities/Multiview")
  135.     )
  136.  
  137.     (tooltype (dest (tackon @darcdrawer "Manual"))
  138.               (setdefaulttool "sys:utilities/AmigaGuide")
  139.     )
  140.  
  141. )
  142.  
  143.  
  144. (complete 80)
  145.  
  146. (set locale 0)
  147. (if (> @user-level 1)
  148.   (set locale 2)
  149.   (set locale 1)
  150. )
  151. (if (< @user-level 1)
  152.     (set locale 0)
  153. )
  154.  
  155. (if (= locale 2)
  156.   (if (exists "SYS:Locale")
  157.   (
  158.     (if (exists "LOCALE:")
  159.     (
  160.       (set lang (askoptions (prompt #chooselang)
  161.                             (help #chooselang-help)
  162.                             (choices "Deutsch" "English")
  163.                             (default default_lang)
  164.                 )
  165.       )
  166.       (set n 0)
  167.       (while (set language (select n
  168.                                      "deutsch"
  169.                                      "english"
  170.                                      ""
  171.                             )
  172.               )
  173.       (
  174.       (if (IN lang n)
  175.       (
  176.           (makedir (tackon "Locale:Catalogs/" language))
  177.           (copyfiles
  178.              (source (tackon (tackon "Locale/Catalogs/" language) "DArc.catalog"))
  179.              (dest (tackon "Locale:Catalogs/" language))
  180.           )
  181.       ))
  182.       (set n (+ n 1))
  183.       ))
  184.     ))
  185.   ))
  186. )
  187.  
  188. (if (= locale 0) (set copylangs 1))
  189.  
  190. (if (= locale 1)
  191.     (set copylangs (askbool   (prompt #copylangs)
  192.                               (help #copylangs-help)
  193.                               (default 0)
  194.                    )
  195.     )
  196. )
  197. (if (= 1 copylangs)
  198. (
  199.     (makedir  "Locale:Catalogs/deutsch")
  200.     (makedir  "Locale:Catalogs/english")
  201.     (copyfiles
  202.        (source "Locale/Catalogs/deutsch/DArc.catalog")
  203.        (dest "Locale:Catalogs/deutsch")
  204.     )
  205.     (copyfiles
  206.        (source "Locale/Catalogs/english/DArc.catalog")
  207.        (dest "Locale:Catalogs/english")
  208.     )
  209. ))
  210.  
  211.  
  212. (if (exists "DArc.key")
  213. (
  214.     (copyfiles (source "DArc.key")
  215.                (dest @darcdrawer)
  216.     )
  217.     (tooltype (dest (tackon @darcdrawer "DArc"))
  218.               (settooltype "KEYFILE" "DArc.key")
  219.     )
  220. ))
  221.  
  222. (complete 100)
  223.